Forging America - The Int…ive History of Bethlehem/ForgingAmerica.iso/pc/legacyintroduction.dxr/template elements_1_template movie script.ls

Text File | 2003-01-01 | 584 b | 43 lines

global paused

on startMovie
  specialfirstplaysound()
end

on specialfirstplaysound
  paused = 0
  go(1)
end

on playsound
  paused = 0
  go(marker(0))
  sound(1).play(member(the frameLabel))
  sprite(13).member = "stop"
end

on stopsound
  paused = 1
  go(marker(0))
  sound(1).stop()
  sprite(13).member = "play"
end

on dosoundtoggle
  donotdomouseleave = 1
  if paused = 1 then
    playsound()
  else
    stopsound()
  end if
end

on grandcentraltemplate buttonchoice
  case buttonchoice of
    "nextpage":
      go(marker(1))
    "prevpage":
      go(marker(-1))
  end case
end